home *** CD-ROM | disk | FTP | other *** search
/ Serving Financial Service…olutions Suite 1994 Fall / Serving Financial Services Solutions Suite 1994 Fall.iso / Apps / AFS / PasteUp.app / dropshadow1.ps < prev    next >
Text File  |  1994-12-14  |  1KB  |  37 lines
  1. % drop shadow redefinitions (c) 1992, 1993 RightBrain Software
  2. % All Rights Reserved.
  3.     % idiotic NeXT redefinitions from 3.0:
  4.     /dropShadowDict where {
  5.     /dropShadowDict get begin
  6.     /nxsetgray where { pop
  7.         /**nxsetgray /nxsetgray load def
  8.         /**nxsetrgbcolor /nxsetrgbcolor load def
  9.         userdict /nxsetgray { pop } put
  10.         userdict /nxsetrgbcolor { pop pop pop } put
  11.     } if
  12.     userdict /setcmykcolor known {
  13.         /**setcmykcolor userdict /setcmykcolor get def
  14.         userdict /setcmykcolor { pop pop pop pop } put
  15.     } if
  16.     userdict begin        % leave writable dict on stack
  17.     }{ %else
  18.     /dropShadowDict 8 dict def
  19.     dropShadowDict begin    % leave on dict stack when finished!
  20.     /setgray { pop } def
  21.     /setrgbcolor { pop pop pop } def
  22.     /sethsbcolor /setrgbcolor load def
  23.     /nxsetgray where { pop
  24.         /**nxsetgray /nxsetgray load def
  25.         /**nxsetrgbcolor /nxsetrgbcolor load def
  26.         userdict /nxsetgray { pop } put
  27.         userdict /nxsetrgbcolor { pop pop pop } put
  28.     } if
  29.     userdict /setcmykcolor known {
  30.         /**setcmykcolor userdict /setcmykcolor get def
  31.         userdict /setcmykcolor { pop pop pop pop } put
  32.     } if
  33.     /setcmykcolor { pop pop pop pop } def
  34.     userdict begin        % leave writable dict
  35.     } ifelse
  36. % end drop shadow redefinitions
  37.